**Women's Fertility and Labor Market Responses to a Health Innovation
**Journal of the European Economic Association
**Sonia Bhalotra, Atheendar Venkataramani and Selma Walther
**Replication do-file for Figure 9

use international_mortality.dta, clear

twoway ( scatter childless IMR , mlabel(Country) msymbol(smcircle) mlabsize(vsmall) mlabvposition(marker1)) ( lfit  childless IMR) if africa==1, scheme(s1mono) ytitle("Childlessness (gross, %)", size(large)) ylabel(, ) xlabel(, valuelabel  ) xtitle("Infant Mortality per 1000 Live Births", size(large)) legend(off)
graph export "international_IMR_childless_africa.pdf", as(pdf) replace
twoway ( scatter chborn IMR , mlabel(Country) msymbol(smcircle) mlabsize(vsmall) mlabvposition(marker2)) ( lfit  chborn IMR)  if africa==1, scheme(s1mono) ytitle("# Children", size(large)) ylabel(, ) xlabel(, valuelabel  ) xtitle("Infant Mortality per 1000 Live Births", size(large)) legend(off)
graph export "international_IMR_chborn_africa.pdf", as(pdf) replace
twoway ( scatter evermarried IMR , mlabel(Country) msymbol(smcircle) mlabsize(vsmall) mlabvposition(marker2)) ( lfit  evermarried IMR)  if africa==1, scheme(s1mono) ytitle("Ever married (%)", size(large)) ylabel(, ) xlabel(, valuelabel  ) xtitle("Infant Mortality per 1000 Live Births", size(large)) legend(off)
graph export "international_IMR_evermarr_africa.pdf", as(pdf) replace
twoway ( scatter inlabforce IMR , mlabel(Country) msymbol(smcircle) mlabsize(vsmall) mlabvposition(marker2)) ( lfit  inlabforce IMR)  if africa==1, scheme(s1mono) ytitle("In labor force (%)", size(large)) ylabel(, ) xlabel(, valuelabel  ) xtitle("Infant Mortality per 1000 Live Births", size(large)) legend(off)
graph export "international_IMR_inlabforce_africa.pdf", as(pdf) replace

